perm filename SUB.F4[2,LCS] blob sn#458329 filedate 1979-07-12 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		IF(P(3).NE.K)GO TO 1
C00004 ENDMK
CāŠ—;
	IF(P(3).NE.K)GO TO 1
C K STORES PREVIOUS P3.  CALL THIS FROM P18 OR HIGHER PARAM.
C  IF REPEAT, THEN OCTAVE JUMP.
C ALSO DUTY FACTOR CHANGE.
	P(3)=P(3)+12.0
	DF=10
	P(17)=1
C ALSO INSERTS GLIS.
	P(18)=P(3)-24.
1	K=P(3)
	RETURN
	END